home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD012a.dsk / MINOTAUR.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  68 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM  PROGRAM LENGTH=1000
  3. 120  REM <CTRL-M><CTRL-M>==================<CTRL-M>PAUL RAYMER<CTRL-M>BOX 42831<CTRL-M>LAS VEGAS NV 89116<CTRL-M>==================<CTRL-J>
  4. 130  REM 
  5. 140  REM  MINOTAUR
  6. 150  REM 
  7. 160  REM  PAUL RAYMER'S
  8. 170  REM  MYTHOLOGY
  9. 180  REM  TABLEAUX
  10. 190  REM 
  11. 200  REM  (C)1982 PEC<CTRL-J>
  12. 210  DIM M$(18),MM$(20)
  13. 220  FOR X = 1 TO 20:A$ = A$ +"X": NEXT X
  14. 230  VTAB 22: HTAB 15: PRINT "THE MINOTAUR"
  15. 240  FOR Z = 1 TO 2000: NEXT Z
  16. 250  REM 
  17. 260  REM  GET MAZE INFO
  18. 270  REM 
  19. 280  FOR X = 1 TO 18: READ M$(X): NEXT X
  20. 290  REM 
  21. 300  REM   START RANDOM MAZE 
  22. 310  REM 
  23. 320  VTAB 1: HTAB 11: PRINT A$
  24. 330  FOR T = 1 TO 17
  25. 340 R =  INT(17 * RND(1)) +1
  26. 350  IF M$(R) = "*"  THEN 340
  27. 360  HTAB 11: PRINT M$(R):MM$(T) = M$(R)
  28. 370 M$(R) = "*"
  29. 380  NEXT T
  30. 390  HTAB 11: PRINT A$
  31. 400  VTAB 22: HTAB 1: PRINT "THESEUS SEEKS";
  32. 410  FOR Z = 1 TO 2000: NEXT Z
  33. 420  REM 
  34. 430  REM  LOOK FOR MINOTAUR
  35. 440  REM 
  36. 450  FOR T = 1 TO 19
  37. 460  VTAB T: HTAB 9: PRINT "->": VTAB T: HTAB 31: PRINT "<-";: IF  MID$ (MM$(T -1),12,1) =  CHR$(127)  THEN  PRINT  CHR$(7);"-LOOK!":MM$(T -1) = M$(18):D = T
  38. 470  FOR Z = 1 TO 150: NEXT Z
  39. 480  NEXT T
  40. 490  REM 
  41. 500  REM  GET RID OF MONSTER
  42. 510  REM 
  43. 520  FOR Z = 1 TO 2000: NEXT Z
  44. 530  VTAB 22: HTAB 28: PRINT "AND SLAYS IT"
  45. 540  FOR Z = 1 TO 2000: NEXT Z
  46. 550  FOR T = 1 TO 19: VTAB T +1: HTAB 11: PRINT MM$(T): IF D = T  THEN  VTAB T: HTAB 33: PRINT "-ZAP! "; CHR$(7)
  47. 560  NEXT T
  48. 570  FOR Z = 1 TO 2000: NEXT Z
  49. 580  VTAB 23: HTAB 1: PRINT  CHR$(13); CHR$(4);"RUN MYTHMENU"
  50. 590  DATA  "X XX X X X X X X X X"
  51. 600  DATA  "X XX XX XX XX XX X X"
  52. 610  DATA  "X  X  X  XX X X  X X"
  53. 620  DATA  "X X XXX XXX XXX X XX"
  54. 630  DATA  "XX XXXX XXXX XXX XXX"
  55. 640  DATA  "XXX XXX XXX XX X X X"
  56. 650  DATA  "X X X  X  X  X  X XX"
  57. 660  DATA  "XXX  XX   X X  X X X"
  58. 670  DATA  "X  XXX XXX XXX X X X"
  59. 680  DATA  "X XXX XXX XX X X X X"
  60. 690  DATA  "XXX  XXXX  XXXX X XX"
  61. 700  DATA  "XX XX XX XX  XXX XXX"
  62. 710  DATA  "XX XXX XXX XXX X XXX"
  63. 720  DATA  "X XXXX XXX  XX X XX"
  64. 730  DATA  "XX X XXXX XX XXXX XX"
  65. 740  DATA  "XX XXX XXX XXX XX XX"
  66. 750  DATA  "X XXXX XXXX XX XXX X"
  67. 760  DATA  "X XXXX XXX # XX X XX" 
  68. 770  REM   POKE 3245,127 FOR LINE 690 OR WHATEVER MATCHES 430